inherited crdMeter: TcrdMeter
  Left = 369
  Top = 349
  Width = 637
  Height = 373
  Caption = #1050#1072#1088#1090#1086#1095#1082#1072' '#1089#1095#1077#1090#1095#1080#1082#1072
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 319
    Width = 629
    inherited BitBtn1: TBitBtn
      Left = 422
      Visible = False
    end
    inherited BitBtn2: TBitBtn
      Left = 524
      ModalResult = 2
    end
  end
  inherited ToolBar1: TToolBar
    Width = 629
    Height = 0
  end
  object PageControl1: TPageControl [2]
    Left = 0
    Top = 0
    Width = 629
    Height = 319
    ActivePage = tsMain
    Align = alClient
    TabOrder = 2
    OnChange = PageControl1Change
    object tsMain: TTabSheet
      Caption = #1054#1089#1085#1086#1074#1085#1099#1077
      OnShow = tsMainShow
      object gbMeterParams: TGroupBox
        Left = 0
        Top = 0
        Width = 295
        Height = 291
        Align = alLeft
        Caption = ' '#1057#1074#1086#1081#1089#1090#1074#1072' '#1089#1095#1077#1090#1095#1080#1082#1072' '
        TabOrder = 0
        object Label21: TLabel
          Left = 18
          Top = 17
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1048#1044
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label22: TLabel
          Left = 18
          Top = 171
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1044#1072#1090#1072' '#1091#1089#1090#1072#1085#1086#1074#1082#1080
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label24: TLabel
          Left = 18
          Top = 127
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1047#1072#1074#1086#1076#1089#1082#1086#1081' '#8470
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label25: TLabel
          Left = 18
          Top = 39
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1058#1080#1087' '#1089#1095#1077#1090#1095#1080#1082#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label30: TLabel
          Left = 18
          Top = 149
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1057#1090#1072#1090#1091#1089
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label31: TLabel
          Left = 18
          Top = 193
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1055#1086#1082#1072#1079#1072#1085#1080#1103' '#1087#1088#1080' '#1091#1089#1090'.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label33: TLabel
          Left = 18
          Top = 215
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1044#1072#1090#1072' '#1075#1086#1089'.'#1087#1086#1074#1077#1088#1082#1080
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label34: TLabel
          Left = 18
          Top = 83
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1051#1057' '#1089#1095#1077#1090#1095#1080#1082#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label43: TLabel
          Left = 18
          Top = 105
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1053#1072#1079#1074#1072#1085#1080#1077' '#1089#1095#1077#1090#1095#1080#1082#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 18
          Top = 237
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1044#1072#1090#1072' '#1089#1085#1103#1090#1080#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label13: TLabel
          Left = 18
          Top = 259
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1055#1086#1082#1072#1079#1072#1085#1080#1103' '#1087#1088#1080' '#1089#1085#1103#1090#1080#1080
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label1: TLabel
          Left = 18
          Top = 61
          Width = 120
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1059#1089#1083#1091#1075#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object dbeMeterID: TDBEditEh
          Left = 144
          Top = 14
          Width = 145
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          Color = clInactiveCaptionText
          DataField = 'ID'
          DataSource = dsc_Meters
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 0
          Visible = True
        end
        object dbeMeterMountDate: TDBDateTimeEditEh
          Left = 144
          Top = 168
          Width = 145
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          Color = clInactiveCaptionText
          DataField = 'MOUNT_DATE'
          DataSource = dsc_Meters
          EditButton.Visible = False
          EditButtons = <>
          Flat = True
          Kind = dtkDateEh
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 7
          Visible = True
        end
        object dbeMeterNum: TDBEditEh
          Left = 144
          Top = 124
          Width = 145
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          Color = clInactiveCaptionText
          DataField = 'METER_NUM'
          DataSource = dsc_Meters
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
          Visible = True
        end
        object dbeMeterMountInd: TDBEditEh
          Left = 144
          Top = 190
          Width = 145
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          Color = clInactiveCaptionText
          DataField = 'MOUNT_METERIND'
          DataSource = dsc_Meters
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 8
          Visible = True
        end
        object dbeMeterVerDate: TDBDateTimeEditEh
          Left = 144
          Top = 212
          Width = 145
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          Color = clInactiveCaptionText
          DataField = 'VERIFY_DATE'
          DataSource = dsc_Meters
          EditButton.Visible = False
          EditButtons = <>
          Flat = True
          Kind = dtkDateEh
          ParentShowHint = False
          ShowHint = True
          TabOrder = 9
          Visible = True
        end
        object dbeMeterNLS: TDBEditEh
          Left = 144
          Top = 80
          Width = 145
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          Color = clInactiveCaptionText
          DataField = 'LS'
          DataSource = dsc_Meters
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          Visible = True
        end
        object dbeMeterName: TDBEditEh
          Left = 144
          Top = 102
          Width = 145
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          Color = clInactiveCaptionText
          DataField = 'NAME'
          DataSource = dsc_Meters
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          Visible = True
        end
        object DBDateTimeEditEh1: TDBDateTimeEditEh
          Left = 144
          Top = 234
          Width = 145
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          Color = clInactiveCaptionText
          DataField = 'DISMOINT_DATE'
          DataSource = dsc_Meters
          EditButton.Visible = False
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          Kind = dtkDateEh
          ParentFont = False
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 10
          Visible = True
        end
        object DBEditEh1: TDBEditEh
          Left = 144
          Top = 256
          Width = 145
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          Color = clInactiveCaptionText
          DataField = 'DISMOUNT_IND'
          DataSource = dsc_Meters
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 11
          Visible = True
        end
        object DBEditEh2: TDBEditEh
          Left = 144
          Top = 146
          Width = 145
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          Color = clInactiveCaptionText
          DataField = 'RSTATUS'
          DataSource = dsc_Meters
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
          Visible = True
        end
        object DBEditEh3: TDBEditEh
          Left = 144
          Top = 36
          Width = 145
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          Color = clInactiveCaptionText
          DataField = 'MTYPE'
          DataSource = dsc_Meters
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          Visible = True
        end
        object DBEditEh4: TDBEditEh
          Left = 144
          Top = 58
          Width = 145
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          AutoSize = False
          Color = clInactiveCaptionText
          DataField = 'SERVICE'
          DataSource = dsc_Meters
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          ParentFont = False
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 2
          Visible = True
        end
      end
      object GroupBox1: TGroupBox
        Left = 295
        Top = 0
        Width = 326
        Height = 291
        Align = alClient
        Caption = ' '#1048#1089#1090#1086#1088#1080#1103' '#1087#1086#1082#1072#1079#1072#1085#1080#1081' '
        TabOrder = 1
        object DBGridEh1: TDBGridEh
          Left = 2
          Top = 41
          Width = 322
          Height = 248
          Align = alClient
          DataSource = dscMeterPH
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          OddRowColor = clInactiveCaptionText
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VTitleMargin = 5
          Columns = <
            item
              EditButtons = <>
              FieldName = 'RDOCYEAR'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'RDOCMONTH'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'RMAXIND'
              Footers = <>
              Width = 81
            end>
        end
        object ToolBar2: TToolBar
          Left = 2
          Top = 15
          Width = 322
          Height = 26
          ButtonHeight = 23
          ButtonWidth = 24
          Caption = 'ToolBar1'
          Flat = True
          Images = MAIN.ImageList
          TabOrder = 1
          object ToolButton5: TToolButton
            Left = 0
            Top = 0
            Action = aPH_New
          end
        end
      end
    end
    object tsAddress: TTabSheet
      Caption = #1040#1076#1088#1077#1089#1072
      ImageIndex = 3
      object gbMeterAddrs: TGroupBox
        Left = 0
        Top = 0
        Width = 621
        Height = 291
        Align = alClient
        Caption = ' '#1040#1076#1088#1077#1089#1072', '#1082#1086#1090#1086#1088#1099#1077' '#1087#1086#1076#1082#1083#1102#1095#1077#1085#1099' '#1082' '#1076#1072#1085#1085#1086#1084#1091' '#1089#1095#1077#1090#1095#1080#1082#1091' '
        TabOrder = 0
        object Panel18: TPanel
          Left = 2
          Top = 15
          Width = 617
          Height = 27
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          DesignSize = (
            617
            27)
          object bShowAddrs: TButton
            Left = 253
            Top = 1
            Width = 75
            Height = 25
            Anchors = [akTop]
            Caption = #1055#1086#1082#1072#1079#1072#1090#1100
            TabOrder = 0
            OnClick = bShowAddrsClick
          end
        end
        object dbgMeterAddrs: TDBGridEh
          Left = 2
          Top = 42
          Width = 617
          Height = 247
          Align = alClient
          DataSource = dsc_MeterAddrs
          Enabled = False
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          OddRowColor = clInactiveCaptionText
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
          ReadOnly = True
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VTitleMargin = 5
          Columns = <
            item
              EditButtons = <>
              FieldName = 'STREET'
              Footers = <>
              Width = 265
            end
            item
              EditButtons = <>
              FieldName = 'HOUSE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'APPARTS'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'LETTER'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'NAME'
              Footers = <>
              Width = 231
            end>
        end
      end
    end
  end
  inherited ActionList1: TActionList
    Images = MAIN.ImageList
    inherited aSave: TAction
      Enabled = False
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
    object aPH_New: TAction
      Caption = #1042#1085#1077#1089#1090#1080' '#1085#1086#1074#1099#1077' '#1087#1086#1082#1072#1079#1072#1085#1080#1103
      Hint = #1042#1085#1077#1089#1090#1080' '#1085#1086#1074#1099#1077' '#1087#1086#1082#1072#1079#1072#1085#1080#1103
      ImageIndex = 9
      OnExecute = aPH_NewExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'crdMeter'
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      '<P>.WindowState'
      
        'PageControl1.tsAddress.gbMeterAddrs.dbgMeterAddrs.<P>.Columns.Co' +
        'lumnsIndex'
      
        'PageControl1.tsAddress.gbMeterAddrs.dbgMeterAddrs.<P>.Columns.<F' +
        'orAllItems>.Width')
    Left = 34
    Top = 30
  end
  object ds_Meters: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE METERS'
      'SET '
      '    METER_NUM = :METER_NUM,'
      '    METER_TYPE = :METER_TYPE,'
      '    NAME = :NAME,'
      '    LS = :LS,'
      '    VERIFY_DATE = :VERIFY_DATE'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'select distinct '
      '  m.id, '
      '  m.ls,'
      '  m.name, '
      '  m.meter_num, '
      '  m.meter_status as status,'
      
        '  (select rm.name from rmeter_status rm where rm.id = m.status) ' +
        'as rstatus,'
      '  m.bdate as mount_date,'
      '  m.mount_meterind, '
      '  m.verify_date, '
      '  m.meter_type,'
      '  mt.name as mtype,'
      '  m.edate as dismoint_date, '
      '  (select first(1) mi.ph from meter_ind mi, m_accpoint_acts maa'
      '          where mi.is_deleted = 0 and mi.act_id = maa.id'
      
        '            and maa.is_deleted = 0 and maa.accpoint_id = m.accpo' +
        'int_id'
      '            and mi.meter_id = m.id and maa.act_date = m.edate'
      '          order by maa.act_date desc) as dismount_ind,'
      
        '  (select first(1) s2.name from proc_accpoint_get_childs (m.accp' +
        'oint_id, m.bdate, m.edate, 1) mda'
      '    join dogovors d on d.accpoint_id = mda.raccpoint_id'
      '    join services s on s.id = d.service_id'
      '    join services s2 on s2.id = s.group_id) as service'
      'from meters m'
      '  join meter_types mt on mt.id = m.meter_type'
      'where m.id = :pmeter_id')
    Transaction = trMeters
    Database = MAINDM.pMainDatabase
    Left = 446
    Top = 74
    poSQLINT64ToBCD = True
    oFetchAll = True
  end
  object ds_MeterAddrs: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select v.name, v.street, v.house, v.apparts, v.letter, sg.name a' +
        's srv_name'
      '  from meters m'
      
        '  left join proc_accpoint_get_childs (m.accpoint_id, m.bdate, m.' +
        'edate, 1) p on 1=1'
      '  join dogovors d on d.accpoint_id = p.raccpoint_id'
      '  join v_abons v on v.id = d.abonent_id'
      '  join services s on s.id = d.service_id'
      '  join services sg on sg.id = s.group_id'
      
        '  where exists (select 1 from proc_dogovor_get_status (d.id, cur' +
        'rent_date) where rstatus = 1)'
      '    and m.id = :pmeter_id'
      'order by v.street, v.house, v.apparts, v.letter')
    Transaction = trMeters
    Database = MAINDM.pMainDatabase
    Left = 446
    Top = 102
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_MeterAddrsSTREET: TFIBStringField
      DisplayLabel = #1059#1083#1080#1094#1072
      DisplayWidth = 10
      FieldName = 'STREET'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_MeterAddrsHOUSE: TFIBStringField
      DisplayLabel = #1044#1086#1084
      DisplayWidth = 6
      FieldName = 'HOUSE'
      Size = 16
      EmptyStrToNull = True
    end
    object ds_MeterAddrsAPPARTS: TFIBIntegerField
      DisplayLabel = #1050#1074'.'
      DisplayWidth = 5
      FieldName = 'APPARTS'
    end
    object ds_MeterAddrsLETTER: TFIBStringField
      DisplayLabel = #1083#1080#1090'.'
      DisplayWidth = 5
      FieldName = 'LETTER'
      Size = 3
      EmptyStrToNull = True
    end
    object ds_MeterAddrsNAME: TFIBStringField
      DisplayLabel = #1050#1074#1072#1088#1090#1080#1088#1086#1089#1098#1077#1084#1097#1080#1082
      DisplayWidth = 20
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsc_MeterAddrs: TDataSource
    DataSet = ds_MeterAddrs
    Left = 478
    Top = 102
  end
  object dsc_Meters: TDataSource
    DataSet = ds_Meters
    Left = 478
    Top = 74
  end
  object trMeters: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 370
    Top = 60
  end
  object prMeterDelete: TpFIBStoredProc
    Transaction = trMeters
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'execute procedure PROC_METER_DELETE :pmeter_id')
    Left = 404
    Top = 60
    qoAutoCommit = True
    qoStartTransaction = True
  end
  object dsMeterPH: TpFIBDataSet
    SelectSQL.Strings = (
      'select * from PROC_CASHIER_PAYSIND(null, :pmeter_id)')
    Transaction = trMeters
    Database = MAINDM.pMainDatabase
    Left = 446
    Top = 48
    poSQLINT64ToBCD = True
    oFetchAll = True
    object dsMeterPHRDOCYEAR: TFIBIntegerField
      DisplayLabel = #1043#1086#1076
      FieldName = 'RDOCYEAR'
    end
    object dsMeterPHRDOCMONTH: TFIBIntegerField
      DisplayLabel = #1052#1077#1089#1103#1094
      FieldName = 'RDOCMONTH'
    end
    object dsMeterPHRMAXIND: TFIBBCDField
      DisplayLabel = #1055#1086#1082#1072#1079#1072#1085#1080#1103
      FieldName = 'RMAXIND'
      Size = 3
      RoundByScale = True
    end
  end
  object dscMeterPH: TDataSource
    DataSet = dsMeterPH
    Left = 478
    Top = 48
  end
end
